﻿Imports Microsoft.Office.Interop.Excel
Imports System.Drawing

''' <summary>
''' Implémentation par défaut d'un tableau Excel
''' </summary>
''' <remarks></remarks>
Public Class ImplTableauDefaut
    Inherits abstractImplTableau

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Public Overrides Sub DessineTableau(ByVal xlSortie As IGestionExcel, _
                                        ByVal titre As String, _
                                        ByVal tab As System.Data.DataTable, _
                                        ByVal numeroLigneHautGauche As Integer, _
                                        ByVal numeroColonneHautGauche As Integer)

        'Remplissage de la ligne de titre sur la feuille EXCEL
        RemplitTitre(xlSortie, _
                       tab, _
                       numeroLigneHautGauche, _
                       numeroColonneHautGauche, _
                       True)

        'Remplissage des données sur la feuille EXCEL
        RemplitDonnees(xlSortie, _
                       tab, _
                       numeroLigneHautGauche + 1, _
                       numeroColonneHautGauche, _
                       True)

        'Mise en forme du tableau
        xlSortie.SelectionRange(numeroLigneHautGauche, numeroColonneHautGauche, _
                                numeroLigneHautGauche, numeroColonneHautGauche + tab.Columns.Count - 1)
        xlSortie.ChangeCouleurTexteRange(Color.White)
        xlSortie.ColorieRange(Color.Black)

    End Sub

End Class